Top 10k strings from Profile 2 (1984)(McGraw-Hill Book Company UK)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 nm=(f$(i,5
2 THEN PRESS ENTER
2 SAFEGUARD YOUR FILE, TYPE
1 zzzzzzzzzzzzzzzzzzzzzzzzzzz
1 zz)+(" MICRODRIVE VERSION "
1 z)+ff*(ff>z):
1 z$=z$+(("(
1 yo=(yo+l(ff))*(ff<nf)*(hi=w)+(yo-l(ff-(ff
1 y$=y$+(x$(h)
1 xf"I_*I_+"G_"I_}
1 x@ <<<xD<<
1 x$="="+v$:
1 w;"SORTING":
1 w;" Error in command ":
1 w)*(hi=-w)+yo*vs:
1 vofrpsntid?l
1 tot=tot+r*t:
1 t)+(l$(i,st
1 st=st+l(i):
1 s)+(s-yo)*(yo+32
1 profile
1 prodem3
1 prodem2
1 prodem1 ;
1 prodem
1 pl=pl+l(f):
1 pl+l(f)<32
1 p$=p$+c$+t$+(e$
1 p$=p$+((c$+r$)
1 os=(a$="s"
1 op=(a$="p"
1 nm)+"l$(i,"+
1 makeC0modlC0yearC0saleN0regnC0vat.N2condC0costN0remsC0
1 make modl yearsale regn vat. cond cost rems O
1 len=fi-st:
1 l$(x+xo)=b$
1 k=k+(k=z):
1 k;("No problems")
1 j=fi-st-dp-
1 j+l(i)-w):
1 ic=((ch=34
1 i$="Condition: "+v$+n$:
1 fi=st+l(i)-w:
1 fi+")"+(("(
1 ff=ff+hi*(((hi
1 err=(f$(i,
1 end=end-(l$(end)=b$):
1 end=end-(end>max):
1 end=end*(end>z)+(end<w):
1 eic=(ch=34
1 d$=(n$+"Count "+("for "
1 ct=((ch-96
1 chct=chct+ic-eic:
1 Press any key to continue
1 Created with Ramsoft MakeTZX
1 Condition:
1 Audi 100 1980 3775UYE508V 566.25Aver 2950 Estate BL Metro 1980 2930SUH358V 439.50Good 2290 Radio/CassBL M.G.Midget1980 3225HBT594V 483.75Fair 2550 BL Mini 1000 1982 2550CBG790X 382.50Fair 1450 Radio BMW 520i 1981 7575JGS1 1136.25Exc 5500 Reg. JGS1 BMW 525 1977 3225TIU678R 483.75Fair 2450 Radio Colt Sigma 1979 2275TJF460T 341.25Fair 1640 Datsun120Y Sunny1981 3335RKC849W 500.25Fair 2575 Estate DatsunCherry 1982 3515DJR740X 527.25Good 2950 Hatchback Fiat Panda 1982 2650LVB602X 397.50Aver 1750 Fiat Strada 1982 3800FJB854X 570.00Good 2500 Ford Capri S 1982 4000BLN967P 600.00Good 3650 Radio & CBFord Cortina 1978 2750IAE395S 412.50Aver 1575 Estate BL Metro 1980 2800JRE543V Aver 2000 Radio Ford Cortina 1981 3700COJ954W 555.00Aver 2950 Ford Escort 1982 3575FAS426X 536.25Good 2950 Sunroof Ford Fiesta 1980 2185CEW158V 327.75Good 1650 Tinted W/SFord Granada 198
1 ;("Error at record "+
1 ;(" TAPE VERSION "
1 ;"d,f,i,l,n,o,p,r,s,t,v
1 ;"SORTED ":
1 ;"Records remaining: ";max-end:
1 ;"Records entered: ";end;
1 ;"Record ";k
1 ;"Press enter to go on"
1 ;"Press ENTER to go on":
1 ;"Press ENTER to go on"
1 ;"Press ENTER for next":
1 ;"If error type
1 ;"COMMAND MODE"''
1 ;"Any other key to return":
1 ;"(Recorder set to PLAY)":
1 ;" STOP THE TAPE ":
1 ;" START THE TAPE ";
1 ;" PLEASE WAIT ":
1 ;" LOADING PROGRAM ":
1 8D x<D8Dxx
1 0000000000000000000000000000000000000000000000000000
1 ,z;"Use arrow keys to go up or down":
1 ,z;"Type y to delete,n to continue":
1 ,z;"Enter replacement equation below"
1 ,z;" Enter field name"'':
1 ,z;" Now enter print fields"'':
1 *i*(a$=m$(i)
1 )-(r<z)+(dp=z)
1 (pl+l(f)):
1 ("Condition: "
1 '"Use the file in conjunction withthe Manual to familiarise yourself with the many differentfacilities available on the PROFILE 2 system."
1 '"Try printing out a list of all Ford and BL cars in a form that is suitable for a sales promotion, including the price, and not forgetting the '`' sign."
1 '"Try adding a few cars to the list, using the 'o' option to sort the list into order. Next,use 'n' and 'r' to calculate thev.a.t. on the new cars."
1 '"This file is a demonstration of the kind of file that can be created using PROFILE 2. It is a file of used cars, such as might be kept by a small car dealer."
1 '"In general, use PRODEM to practice using PROFILE 2 until you are ready to create your ownPROFILE 2 spreadsheet filing system."
1 "Use the 'f' option to locate different groups of cars that might appeal to different customers. Try several different combinations of conditions."
1 "Total ";x$+((" for "+v$)
1 "Output to Screen(s), printer(p), or both(b)?";
1 "Enter condition below (last was ";v$;")":
1 "")+v$+" :"+
1 ""))+" is ";tot:
1 McGraw-Hill (UK) Ltd. 1983
1 R